# Usage: chaos.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile chaos.ps 
	mapFile chaos.map
	title "diplomacy map (chaos variant)"
	images {
		chart {chaos.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {chaos.base.ps {scan {} {provinces INFO supplies TLA}} {} {}}
	}
	colors {
		AnkaraColor {1 0 0}
		BelgiumColor {.98 .37 0}
		BerlinColor {0 1 0}
		BrestColor {0 0 1}
		BudapestColor {0 .86 1}
		BulgariaColor {.45 .45 1}
		ConstantinopleColor {1 1 1}
		DenmarkColor {.91 .65 .18}
		EdinburghColor {.95 1 .09}
		GreeceColor {.67 .99 .09}
		HollandColor {.15 .98 .11}
		KielColor {.16 .45 .16}
		LiverpoolColor {.51 .08 .08}
		LondonColor {.08 .08 .51}
		MarseillesColor {0 0 0}
		MoscowColor {1 0 .50}
		MunichColor {.50 0 1}
		NaplesColor {.50 0 .50}
		NorwayColor {0 1 0}
		ParisColor {0 .50 0}
		PortugalColor {.50 .50 .50}
		RomeColor {.75 .75 .75}
		RumaniaColor {.25 .50 .50}
		SerbiaColor {.50 .25 0}
		SevastopolColor {1 1 0}
		SmyrnaColor {.25 0 .50}
		SpainColor {1 .50 .75}
		StPetersburgColor {1 0 1}
		SwedenColor {0 .50 .50}
		TriesteColor {.50 .50 1}
		TunisColor {.50 0 .25}
		VeniceColor {0 .25 0}
		ViennaColor {0 .25 .50}
		WarsawColor {.25 .50 0}
	}
	powerNameVariations {short {retreats owners adjustments} long orders}
	powers {
		Ankara {A AnkaraColor Black "A-ANK" "A-ANKARA"}
		Belgium {B BelgiumColor Black "B-BEL" "B-BELGIUM"}
		Berlin {C BerlinColor Black "C-BER" "C-BERLIN"}
		Brest {D BrestColor White "D-BRE" "D-BREST"}
		Budapest {E BudapestColor Black "E-BUD" "E-BUDAPEST"}
		Bulgaria {F BulgariaColor Black "F-BUL" "F-BULGARIA"}
		Constantinople {G ConstantinopleColor Black "G-CON" "G-CONSTANTINOPLE"}
		Denmark {H DenmarkColor Black "H-DEN" "H-DENMARK"}
		Edinburgh {I EdinburghColor Black "I-EDI" "I-EDINBURGH"}
		Greece {J GreeceColor Black "J-GRE" "J-GREECE"}
		Holland {K HollandColor Black "K-HOL" "K-HOLLAND"}
		Kiel {L KielColor White "L-KIE" "L-KIEL"}
		Liverpool {N LiverpoolColor White "N-LVP" "N-LIVERPOOL"}
		London {P LondonColor White "P-LON" "P-LONDON"}
		Marseilles {Q MarseillesColor White "Q-MAR" "Q-MARSEILLES"}
		Moscow {R MoscowColor Black "R-MOS" "R-MOSCOW"}
		Munich {S MunichColor White "S-MUN" "S-MUNICH"}
		Naples {T NaplesColor White "T-NAP" "T-NAPLES"}
		Norway {U NorwayColor Black "U-NWY" "U-NORWAY"}
		Paris {V ParisColor White "V-PAR" "V-PARIS"}
		Portugal {W PortugalColor White "W-POR" "W-PORTUGAL"}
		Rome {X RomeColor Black "X-ROM" "X-ROME"}
		Rumania {Y RumaniaColor White "Y-RUM" "Y-RUMANIA"}
		Serbia {Z SerbiaColor White "Z-SER" "Z-SERBIA"}
		Sevastopol {0 SevastopolColor Black "0-SEV" "0-SEVASTOPOL"}
		Smyrna {1 SmyrnaColor White "1-SMY" "1-SMYRNA"}
		Spain {2 SpainColor Black "2-SPA" "2-SPAIN"}
		StPetersburg {3 StPetersburgColor Black "3-STP" "3-ST PETERSBURG"}
		Sweden {4 SwedenColor White "4-SWE" "4-SWEDEN"}
		Trieste {5 TriesteColor Black "5-TRI" "5-TRIESTE"}
		Tunis {6 TunisColor White "6-TUN" "6-TUNIS"}
		Venice {7 VeniceColor White "7-VEN" "7-VENICE"}
		Vienna {8 ViennaColor White "8-VIE" "8-VIENNA"}
		Warsaw {9 WarsawColor White "9-WAR" "9-WARSAW"}
	}
	layout {corner retreats} fontSize 6.5
	ownerColumns 3 ownerAllowsOverlap 1 ownerLineLength 36 ownerBoxLength 36 ownerNameLength 6 
	adjustmentBoxLength 12! adjustmentNameLength 5
	retreatBoxLength 12! retreatNameLength 5 
	orderBoxLength 68 orderHasHeading 2 
}
